home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / wild / support / makeprefsscripts.bas < prev    next >
BASIC Source File  |  1999-05-25  |  2KB  |  44 lines
  1. LIBRARY "dos.library"
  2. '$INCLUDE basu:_Command.bas
  3.  
  4. v$=CHR$(34)
  5. dir$="sw:/kube/":        app$="Kube":        GOSUB mka
  6. dir$="sw:":            app$="SimpleWorld":    GOSUB mka
  7. dir$="sw:/fountainOfFire/":    app$="Fountain":    GOSUB mka
  8. dir$="sw:/earth/":        app$="Earth":        GOSUB mka
  9. dir$="sw:/single/":        app$="Single":        GOSUB mka
  10. dir$="sw:/cynetik/":        app$="Cynetik":        GOSUB mka
  11. dir$="sw:/dangerousscope/":    app$="Scope":        GOSUB mka
  12.  
  13. END
  14.  
  15. mka:
  16. name$="FASTTD":    line$="TD SimplyFast":                GOSUB mkk
  17. name$="SAFETD":    line$="TD Monkey":                GOSUB mkk
  18. name$="WIRE":    line$="DI TryZkren DW Wire BK no LI no":    GOSUB mkk
  19. name$="FLAT":    line$="DW Flat BK NiX+ LI Flash":        GOSUB mkk
  20. name$="GOURAUD":line$="DW Fluff BK ShiX LI Torch":        GOSUB mkk
  21. name$="TEXTURE":line$="DW Candy+ BK TiX+ LI Torch":        GOSUB mkk
  22. name$="AGA":    line$="DI "+v$+"TryPeJam+"+v$:            GOSUB mkk
  23. name$="CGFX":    line$="DI Cyborg":                GOSUB mkk
  24. name$="PPCAGA":    line$="DI TryNoe8":                GOSUB mkk
  25. name$="PPCTEX": line$="DW PowerDragon LI WTorch BK WTiX":    GOSUB mkk
  26. name$="PPCTD":    line$="TD Evolution":                GOSUB mkk
  27. name$="PPCFULL":line$="TD Evolution DW PowerDragon LI WTorch BK WTiX DI TryNoe8":GOSUB mkk
  28. name$="LORES":    line$="WID 320 HEI 256 MODEID 0":        GOSUB mkk
  29. name$="HIRES":    line$="WID 640 HEI 512 MODEID $8004":        GOSUB mkk
  30. name$="WARP3D":    line$="DW DrScott DI CyborgHi LI Torch BK no":    GOSUB mkk
  31. Command("Delete "+dir$+"#?.info")
  32. RETURN
  33.  
  34. mkk:
  35. file$=dir$+"_Set"+app$+"_"+name$
  36. OPEN file$ FOR OUTPUT AS 1
  37. PRINT #1,"WildPJ:Tools/CloseWild"
  38. PRINT #1,"WildPJ:Tools/SetWildAppPrefs "+app$+" save "+line$
  39. PRINT #1,"ECHO "+CHR$(34)+name$+" Preset set to "+app$+" application."+CHR$(34)
  40. CLOSE 1
  41. Command("Protect "+file$+" se add")
  42. RETURN
  43.  
  44.